        PROGRAM main
        use h1
        implicit none
        INCLUDE 'mpif.h'
        character*9 ::postname
        integer::ii,jj,i,j,ierr
        
        include 'inc/defmpi.inc'
        write(postname, '(a,i2.2)') "postvar",myprcid
        CALL mygetvar_c(postname,mytid)
        CALL MPI_FINALIZE ( ierr )
        
        END PROGRAM
